﻿Public Class mashousetype
    Private housetypeID = Nothing
    Private HUTDESC = Nothing
    Private selectMashousetype = "SELECT `housetype` as 'รหัสประเภท', `hutdesc` as 'ประเภทเคหสถาน' FROM mashousetype"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property housetypeID_ As Integer
        Get
            Return housetypeID
        End Get
        Set(value As Integer)
            housetypeID = value
        End Set
    End Property

    Property HUTDESC_ As String
        Get
            Return HUTDESC
        End Get
        Set(value As String)
            HUTDESC = value
        End Set
    End Property

    Property selectMashousetype_ As String
        Get
            Return selectMashousetype
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMashousetypeData()
        If HUTDESC <> "" Then
            If TypeOf HUTDESC Is String Then
                If connect.GetTable("SELECT hutdesc FROM mashousetype WHERE hutdesc = '" & HUTDESC & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลรหัสประเถทเคหสถานนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim housetypeID As Integer

                        housetypeID = connect.ExecuteScalar("INSERT INTO mashousetype (hutdesc) VALUES ('" & HUTDESC & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASHOUSETYPE (HOUSETYPE, HUTDESC) VALUES ('" & housetypeID & "', '" & HUTDESC & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลประเภทเคหสถานเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสประเภทเคหสถานนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMashousetypeData()
        If housetypeID > 0 And HUTDESC <> "" Then
            If TypeOf HUTDESC Is String Then
                Try
                    connect.ExecuteNonQuery("UPDATE mashousetype SET hutdesc = '" & HUTDESC & "' WHERE housetype = '" & housetypeID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASHOUSETYPE SET HUTDESC = '" & HUTDESC & "' WHERE HOUSETYPE = '" & housetypeID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลประเภทเคหสถานเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสประเภทเคหสถานนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try
                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
End Class
